home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / TestArc.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-15  |  2KB  |  63 lines
  1. /* $VER: TestArc.rexx 8.5 (15.4.95)
  2. copyright 1990-95 Richard Lee Stockton
  3.        FREELY DISTRIBUTABLE
  4.  
  5.      Required in C: directory:
  6.     arc dms lha lzx unarj unzip zoo
  7. */
  8.  
  9. OPTIONS FAILAT 999
  10. CR='0D'x
  11. LF='0A'x
  12.  
  13. PARSE ARG argname .
  14. endtest=UPPER(RIGHT(argname,4))
  15. CALL DELETE('RAM:file_id.diz')
  16.  
  17. arcomm=''
  18. IF endtest='.ARC' THEN arcomm='c:arc >RAM:TestArc.txt t'
  19. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj >RAM:TestArc.txt t'
  20. ELSE IF endtest='.DMS' THEN arcomm='c:dms >RAM:TestArc.txt VIEW'
  21. ELSE IF endtest='.ZOO' THEN arcomm='c:zoo >RAM:TestArc.txt -t'
  22. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip >RAM:TestArc.txt -t'
  23. ELSE IF endtest='.LZX' THEN arcomm='c:lzx >RAM:TestArc.txt t'
  24. ELSE IF endtest='.LHA' | endtest='.LZH' THEN
  25.   arcomm='c:lha >RAM:TestArc.txt -N t'
  26.  
  27. IF arcomm='' THEN EXIT 0
  28. IF ~EXISTS(WORD(arcomm,1)) THEN
  29.   DO
  30.     SAY 'Can''t check archive integrity,' WORD(arcomm,1) 'does not exist!'CR
  31.     EXIT 0
  32.   END
  33.  
  34. SAY 'Testing archive integrity...'CR
  35. ADDRESS COMMAND arcomm argname
  36. err=RC
  37. IF err>0 THEN
  38.   DO
  39.     CALL DELAY(100)
  40.     IF OPEN(f,'RAM:TestArc.txt','R')~=0 THEN
  41.       DO i=1 WHILE ~EOF(f)
  42.         SAY READLN(f)||CR
  43.       END
  44.     CALL CLOSE(f)
  45.     EXIT err
  46.   END
  47.  
  48. arcomm=''
  49. IF endtest='.ARC' THEN arcomm='c:arc >RAM:TestArc.txt e'
  50. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj >RAM:TestArc.txt e'
  51. ELSE IF endtest='.ZOO' THEN arcomm='c:zoo >RAM:TestArc.txt -e'
  52. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip >RAM:TestArc.txt -j'
  53. ELSE IF endtest='.LZX' THEN arcomm='c:lzx >RAM:TestArc.txt e'
  54. ELSE IF endtest='.LHA' | endtest='.LZH' THEN
  55.   arcomm='c:lha >TestArc.txt -Nx0 e'
  56.  
  57. IF arcomm='' | ~EXISTS(WORD(arcomm,1)) THEN EXIT 0
  58. ADDRESS COMMAND 'CD RAM:'LF||arcomm argname 'file_id.diz'
  59. SAY ' - Archive tested OK -'CR
  60. EXIT 0
  61.  
  62. /* TestArc.rexx */
  63.